home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).adf / Comic_Verwaltung / Installation (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-03  |  11KB  |  429 lines
  1. DEFINT a-z
  2. eingelesen=0
  3. DECLARE FUNCTION Execute& LIBRARY
  4. DECLARE FUNCTION xOpen&  LIBRARY
  5.  5 ON ERROR GOTO 0
  6. 10 CLS:LOCATE 5,5:PRINT "Installation der Comicverwaltung"
  7. 20 LOCATE 8,5:PRINT "1. volle Installation"
  8. 30 LOCATE 10,5:PRINT "2. Druckervoreinstellung"
  9. 40 LOCATE 12,5:PRINT "3. Voreinstellung für Ausdruck"
  10. 50 LOCATE 14,5:PRINT "4. Anzahl der Zustände ändern"
  11.    LOCATE 16,5:PRINT "5. zusätzliche Diskette einrichten"
  12.    LOCATE 18,5:PRINT "6. Ende"
  13. 60 q$=INKEY$
  14. 70 IF q$<"1" OR q$>"6" THEN SLEEP:GOTO 60
  15. 70 ON VAL(q$) GOTO 100,200,300,400,500,80
  16. 80 SYSTEM
  17.  
  18. 100 CLS
  19. 110 LOCATE 2,30:PRINT "Installation"
  20. 120 LOCATE 4,5:PRINT "Das Programm benötigt die dos.library."
  21. 130 LOCATE 5,5:PRINT "Geben Sie bitte den vollständigen Pfad dazu ein:"
  22. 140 INPUT lib$
  23. 150 IF UCASE$(RIGHT$(lib$,11))="DOS.LIBRARY" THEN lib$=LEFT$(lib$,LEN(lib$)-11
  24.     IF (RIGHT$(lib$,1)<>"/" AND RIGHT$(lib$,1)<>":")AND LEN(lib$)>0 THEN lib$=lib$+"/"
  25.     ON ERROR GOTO libfehler
  26.     LIBRARY lib$+"dos.library"
  27.  LOCATE 7,5:PRINT "Geben Sie jetzt bitte an, wo sich die Comicverwaltung"
  28.  LOCATE 8,5:PRINT "befindet (vollst. Pfad)."
  29.  ON ERROR GOTO fehler 
  30. cv: LOCATE 9,5:INPUT cvpfad$
  31.   IF cvpfad$="" THEN cv
  32.  IF (RIGHT$(cvpfad$,1)<>"/")AND(RIGHT$(cvpfad$,1)<>":")AND LEN(cvpfad$)>0 THEN cvpfad$=cvpfad$+"/"
  33.  fehler=0
  34.  OPEN cvpfad$+"Start" FOR INPUT AS 1  'comicprg----------------------
  35.  CLOSE 1
  36.  IF fehler THEN LOCATE 20,5:PRINT "Comicverwaltung nicht gefunden":GOTO cv
  37.  ON ERROR GOTO 0
  38.  LOCATE 10,5:PRINT "Geben Sie jetzt bitte an, wo die Comicverwaltung installiert"
  39.  LOCATE 11,5:PRINT "werden soll (vollst. Pfad)."
  40.  GOSUB pfadeingabe
  41.  LOCATE 13,5:PRINT "Welches Laufwerk soll für Zwischenspeicherungen verwendet werden"
  42.  LOCATE 14,5:PRINT " (RAM: oder RAD:) ? "
  43. 155 LOCATE 14,27:INPUT lw$
  44.  lw$=UCASE$(lw$)
  45.  IF lw$<>"RAM:" AND lw$<>"RAD:" THEN
  46.    LOCATE 15,5:PRINT "Wirklich "lw$" (j/n)?"
  47.    q$=""
  48.    WHILE q$<>"j" AND q$<>"n"
  49.      SLEEP:q$=INKEY$
  50.    WEND
  51.    IF q$="n" THEN 155
  52.  END IF    
  53.   ON ERROR GOTO 0
  54.   fHandle& = xOpen&(SADD("con:0/0/600/100/"+CHR$(0)),1005)
  55.   IF fHandle& = 0 THEN PRINT:PRINT  "Fehler im DOS":taste:LIBRARY CLOSE:GOTO 10
  56.   x=Execute&(SADD("makedir "+cpfad$+"comp"+CHR$(0)), 0,fHandle&)
  57.   x=Execute&(SADD("makedir "+cpfad$+"comdat"+CHR$(0)), 0,fHandle&)
  58.   x=Execute&(SADD("copy "+cvpfad$+"comic.haupt "+cpfad$+"comic.haupt"+CHR$(0)), 0,fHandle&)
  59.   x=Execute&(SADD("copy "+cvpfad$+"start "+cpfad$+"start"+CHR$(0)), 0,fHandle&)
  60.   x=Execute&(SADD("copy "+cvpfad$+"start.info "+cpfad$+"start.info"+CHR$(0)), 0,fHandle&)
  61.   pfad$=cpfad$+"comp/"
  62.  CALL xClose&(fHandle&)  
  63.  LIBRARY CLOSE      
  64.  LOCATE 16,5:PRINT "Vor der Neuanlage müssen Sie noch festlegen, wieviele verschiedene"
  65.  LOCATE 17,5:PRINT "Zustände Sie unterscheiden wollen (1-10) :"
  66. 170 LOCATE 17,48:INPUT "",zmax$
  67.  zmax!=VAL(zmax$):IF zmax! < 1 OR zmax! > 10 OR INT(zmax!)<> zmax! THEN 170
  68.  zmax=VAL(zmax$)
  69.  OPEN pfad$+"Zahlen" AS 1 LEN=2
  70.  FIELD 1,2 AS d$
  71.  LSET d$=MKI$(0):PUT 1,1
  72.  LSET d$=MKI$(zmax):PUT 1
  73.  CLOSE 1 
  74.  OPEN pfad$+"Titel" AS 1 LEN=34
  75.  FIELD 1,34 AS d$
  76.  LSET d$=" ":PUT 1,1
  77.  CLOSE 1 
  78.  OPEN pfad$+"Index" AS 1 LEN=2
  79.  FIELD 1,2 AS d$
  80.  LSET d$=MKI$(0):PUT 1,1
  81.  CLOSE 1
  82.  OPEN pfad$+"Voreinstellung" AS 1 LEN=1
  83.  FIELD 1,1 AS d$
  84.  d$=CHR$(0):PUT 1,1
  85.  CLOSE 1
  86. GOSUB drucker
  87. GOSUB ausdruck
  88. GOTO 10
  89.  
  90. libfehler:
  91.   PRINT "Die dos.library wurde nicht gefunden. (Taste)"
  92.   taste
  93.   RESUME 5
  94. pfadfehler:
  95.   LOCATE 23,5:PRINT "ungültiger Pfad"
  96.   RESUME pfadeingabe
  97. fehler:
  98.   fehler=ERR
  99.   RESUME NEXT  
  100. SUB taste STATIC
  101.   rq$=""
  102.   WHILE rq$=""
  103.     SLEEP:rq$=INKEY$
  104.   WEND  
  105. END SUB
  106. drucker:
  107.    OPEN pfad$+"Drucker" FOR OUTPUT AS 1
  108.      PRINT #1,cpfad$
  109.      PRINT #1,lib$
  110.      PRINT #1,lw$
  111.      PRINT #1,CHR$(34)+CHR$(27)+CHR$(64)+CHR$(17)+CHR$(34)
  112.      PRINT #1,CHR$(34)+CHR$(10)+CHR$(34)
  113.      PRINT #1,CHR$(34)+CHR$(27)+CHR$(77)+CHR$(27)+CHR$(15)+CHR$(34)
  114.      PRINT #1,CHR$(34)+"PAR:"+CHR$(34)
  115.      PRINT #1,MKI$(72);
  116.      PRINT #1,MKI$(72);
  117.      PRINT #1,MKI$(160)
  118.    CLOSE 1
  119. RETURN
  120. daten:
  121. DATA "Vorhandene",1,"<<",">> ",,
  122. DATA "Fehlende",0,"<<",">> ",,
  123. DATA "Mehrfache",5,"<<",">> ",,
  124. DATA "Vorhandene zusammengefaßt",9,"<<",">> ",,
  125. DATA "Vorhandene mit Zustand",17,"<<",">> ",,
  126. DATA "Vorhandene zus. mit Zustand",33,"<<",">> ",,
  127. DATA "Alle",3,"<<",">> ",(,)
  128. DATA "Alle mit Zustand",19,"<<",">> ",(,)
  129. DATA "Alle zus. mit Zustand",35,"<<",">> ",(,)
  130.  
  131. ausdruck:
  132.      OPEN pfad$+"Druckart" AS 1 LEN=107
  133.       FIELD 1,30 AS d$,1 AS bed$,1 AS lg$,5 AS t1$,5 AS t2$,1 AS lg2$,5 AS t3$,5 AS t4$,4 AS lg3$,50 AS t5$
  134.       RESTORE daten
  135.       FOR i=0 TO 8
  136.        READ q$:LSET d$=q$
  137.        READ q:LSET bed$=CHR$(q)
  138.        READ q$:LSET t1$=q$:q=LEN(q$)
  139.        READ q$:LSET t2$=q$:q=q*16+LEN(q$)
  140.        LSET lg$=CHR$(q)
  141.        READ q$:LSET t3$=q$:q=LEN(q$)
  142.        READ q$:LSET t4$=q$:q=16*q+LEN(q$)
  143.        LSET lg2$=CHR$(q)
  144.        IF i=5 OR i=8 THEN
  145.         LSET lg3$=MKL$(153391689)
  146.         LSET t5$="0    1    2    3    4    5    6    7    8    9    "
  147.        END IF
  148.        PUT 1,i+1
  149.       NEXT
  150.      CLOSE 1
  151.      RESET
  152. RETURN
  153. 200 CLS:fehler=0:cpfad$="":i=0:lw$=""
  154. 210 ON ERROR GOTO fehler
  155.     OPEN cpfad$+"comp/Drucker" FOR INPUT AS 1
  156.     IF fehler>0 AND i=0 THEN
  157.       i=1
  158.   211 LOCATE 5,5:PRINT "Bitte geben Sie den vollst. Pfad zur Comicverwaltung an :"
  159.       GOSUB pfadeingabe
  160.       IF INSTR(cpfad$,":")=0 THEN 211
  161.       fehler=0:ON ERROR GOTO fehler
  162.       OPEN cpfad$+"comp/Index" FOR INPUT AS 1
  163.       CLOSE 1
  164.       IF fehler>0 THEN LOCATE 20,5:"falscher Pfad (Taste)":taste:GOTO 211
  165.       GOTO 210
  166.     ELSEIF fehler>0 AND i=1 THEN
  167.       LOCATE 8,5:PRINT "Bitte den Pfad zur DOS.LIBRARY angeben"
  168.       INPUT lib$
  169.       IF UCASE$(RIGHT$(lib$,11))="DOS.LIBRARY" THEN lib$=LEFT$(lib$,LEN(lib$)-11)
  170.       IF (RIGHT$(lib$,1)<>"/" AND RIGHT$(lib$,1)<>":")AND LEN(lib$)>0 THEN lib$=lib$+"/"
  171.       ON ERROR GOTO libfehler
  172.       LIBRARY lib$+"dos.library"
  173.       LIBRARY CLOSE
  174.     ELSE
  175.       INPUT#1,cpfad$
  176.       INPUT#1,lib$
  177.       INPUT#1,lw$
  178.       CLOSE 1
  179.     END IF
  180.       LOCATE 10,1:PRINT "Welches Laufwerk soll für Zwischenspeicherungen verwendet werden"
  181.       LOCATE 11,1:PRINT "(RAM: oder RAD:) ? "
  182.       IF lw$<>"" THEN LOCATE 11,21:PRINT "CR = ";lw$
  183.       q$=""
  184.   215 INPUT q$
  185.       IF q$<>"" THEN lw$=q$
  186.       lw$=UCASE$(lw$)
  187.       IF lw$<>"RAM:" AND lw$<>"RAD:" THEN
  188.         LOCATE 12,5:PRINT "Wirklich "lw$" (j/n)?"
  189.         q$=""
  190.         WHILE q$<>"j" AND q$<>"n"
  191.           SLEEP:q$=INKEY$
  192.         WEND
  193.         IF q$="n" THEN 215  
  194.       END IF
  195.     pfad$=cpfad$+"comp/"
  196.     GOSUB drucker
  197.     GOTO 5
  198. pfadeingabe: 
  199.  ON ERROR GOTO pfadfehler 
  200.  INPUT cpfad$
  201.  IF (RIGHT$(cpfad$,1)<>"/")AND(RIGHT$(cpfad$,1)<>":")AND LEN(cpfad$)>0 THEN cpfad$=cpfad$+"/"
  202. dum:
  203.  OPEN cpfad$+"com.dummy" FOR OUTPUT AS 1
  204.  CLOSE 1
  205.  KILL cpfad$+"com.dummy"
  206.  ON ERROR GOTO 0
  207. RETURN
  208. 300 CLS
  209.     LOCATE 5,5:PRINT "Bitte geben Sie ein, wohin die Voreinstellung kopiert"
  210.     LOCATE 6,5:PRINT "werden soll :"
  211.     GOSUB pfadeingabe
  212.     IF UCASE$(RIGHT$(cpfad$,5))="COMP/" THEN
  213.       pfad$=cpfad$
  214.     ELSE
  215.       pfad$=cpfad$
  216.       IF RIGHT$(pfad$,1)<>":" AND RIGHT$(pfad$,1)<>"/" AND LEN(pfad$)>0 THEN pfad$=pfad$+"/"
  217.       pfad$=pfad$+"comp/"
  218.     END IF
  219.     ON ERROR GOTO fehler:fehler=0
  220.     OPEN cpfad$+"com.dummy" FOR OUTPUT AS 1
  221.     IF fehler>0 THEN LOCATE 20,5:PRINT "Unterverzeichnis nicht gefunden (Taste)":taste:GOTO 5
  222.     CLOSE 1
  223.     KILL cpfad$+"com.dummy"
  224.     ON ERROR GOTO 0
  225.     GOSUB ausdruck
  226.     GOTO 10
  227. 400 CLS
  228. IF NOT eingelesen THEN    
  229.   DIM dec(83),cod(43),dat(10),ndat(10),nz(10)
  230.   RESTORE cod
  231.   FOR i=0 TO 43:READ q$:cod(i)=VAL("&h"+q$):NEXT i
  232.   FOR i=0 TO 83:READ q$:dec(i)=VAL("&h"+q$):NEXT i
  233.   eingelesen=-1
  234. END IF
  235.     LOCATE 5,5:PRINT "Bitte geben Sie den Pfad zum Comicprogramm ein."
  236.     GOSUB pfadeingabe
  237.     ON ERROR GOTO fehler:fehler=0
  238.     OPEN cpfad$+"comp/Zahlen" FOR INPUT AS 1
  239.     CLOSE 1
  240.     q=fehler
  241.     OPEN cpfad$+"comp/Titel" FOR INPUT AS 1
  242.     CLOSE 1
  243.     IF q+fehler>0 THEN LOCATE 20,5:PRINT "Dateien nicht gefunden (Taste)":taste:GOTO 5
  244.     ON ERROR GOTO 0
  245.     OPEN cpfad$+"comp/Zahlen" AS 1 LEN=2
  246.     FIELD 1,2 AS d$
  247.     GET 1,1:an=CVI(d$):GET 1:zmax=CVI(d$):satzl=(zmax+2)\2
  248.     IF an=0 THEN CLOSE 1:GOTO 10
  249.     CLS
  250.     LOCATE 3,5:PRINT "Wieviele Zustände werden gewünscht (1-10) ?"
  251.     nzmax=0
  252.     WHILE nzmax<1 OR nzmax>10 OR nzmax=zmax
  253.       LOCATE 3,50:INPUT nzmax
  254.     WEND
  255.     nsatzl=(nzmax+2)\2
  256.     LOCATE 4,5:PRINT "Ordnen Sie jetzt den alten Zuständen je einen neuen zu"
  257.     LOCATE 5,5:PRINT "alter Zustand     neuer Zustand"
  258.     FOR i=0 TO zmax-1
  259.       LOCATE 6+i,10:PRINT i
  260.       nz(i)=-1
  261.       WHILE nz(i)<0 OR nz(i)>=nzmax
  262.         LOCATE 6+i,18:INPUT nz(i)
  263.       WEND
  264.     NEXT i    
  265.     OPEN cpfad$+"comp/Zahlen.neu" AS 2 LEN=2
  266.     FIELD 2,2 AS d2$
  267.     LSET d2$=MKI$(an):PUT 2,1
  268.     LSET d2$=MKI$(nzmax):PUT 2,2
  269.     FOR i=1 TO an
  270.       FOR j=0 TO nzmax-1:z(j)=0:NEXT j
  271.       FOR j=0 TO zmax-1
  272.         GET 1,(i-1)*(zmax+2)+j+3:z(nz(j))=z(nz(j))+CVI(d$)
  273.       NEXT j
  274.       FOR j=0 TO nzmax-1
  275.         LSET d2$=MKI$(z(j)):PUT 2
  276.       NEXT j
  277.       GET 1:LSET d2$=d$:PUT 2
  278.       GET 1:LSET d2$=d$:PUT 2  
  279.     NEXT i
  280.     CLOSE 1
  281.     CLOSE 2
  282.     pfad$=cpfad$+"comdat/"
  283.     OPEN cpfad$+"comp/Titel" AS 1 LEN=34
  284.      FIELD 1,1 AS laenge$,30 AS d$,1 AS jahr$,2 AS mnr$
  285.      nummer=0
  286.      FOR i=1 TO an
  287.        GET 1,i:t$=LEFT$(d$,ASC(laenge$))
  288.        LOCATE 18,5:PRINT USING "\                            \";t$
  289. pf:    ON ERROR GOTO fehler:fehler=0
  290.        OPEN pfad$+t$ FOR INPUT AS 2
  291.        CLOSE 2
  292.        ON ERROR GOTO 0
  293.        IF fehler>0 THEN
  294.          LOCATE 20,5:PRINT "Datei nicht gefunden"
  295.          LOCATE 21,5:PRINT "bitte den richtigen Pfad eingeben :":INPUT pfad$
  296.          IF RIGHT$(pfad$,1)="/" THEN pfad$=LEFT$(pfad$,LEN(pfad$)-1)
  297.          IF RIGHT$(pfad$,6)<>"comdat" THEN
  298.            IF RIGHT$(pfad$,1)<>":" THEN pfad$=pfad$+"/"
  299.            pfad$=pfad$+"comdat"
  300.          END IF
  301.          pfad$=pfad$+"/"
  302.          GOTO pf
  303.        END IF
  304.        OPEN pfad$+t$ AS 2 LEN=satzl
  305.        FIELD 2,satzl AS d2$
  306.        IF LEN(t$)<26 THEN
  307.          OPEN pfad$+t$+".neu" AS 3 LEN=nsatzl
  308.        ELSE
  309.          OPEN pfad$+"xxyyzzy"+STR$(nummer) AS 3 LEN=nsatzl
  310.          nummer=nummer+1
  311.        END IF
  312.        FIELD 3,nsatzl AS d3$
  313.        l=LOF(2)/satzl
  314.        FOR j=1 TO l
  315.          GET 2,j
  316.          decodiere d2$
  317.          FOR k=1 TO nzmax:ndat(k)=0:NEXT k
  318.          ndat(0)=dat(0)
  319.          IF ndat(0)=0 THEN
  320.            FOR k=0 TO zmax-1
  321.              ndat(nz(k)+1)=ndat(nz(k)+1)+dat(k+1)
  322.            NEXT k
  323.            codiere q$
  324.            LSET d3$=q$
  325.          ELSE
  326.            LSET d3$=CHR$(240)+STRING$(nsatzl-1,0)
  327.          END IF
  328.          PUT 3,j
  329.        NEXT j
  330.      CLOSE 2:CLOSE 3
  331.      NEXT i
  332.    CLOSE 1
  333.   KILL cpfad$+"comp/Zahlen"
  334.   NAME cpfad$+"comp/Zahlen.neu" AS "comp/Zahlen"
  335.   OPEN cpfad$+"comp/Titel" AS 1 LEN=34
  336.   FIELD 1,1 AS laenge$,30 AS d$,1 AS jahr$,2 AS mnr$
  337.   nummer=0
  338.   FOR i=1 TO an
  339.     GET 1,i:t$=LEFT$(d$,ASC(laenge$))
  340.     KILL pfad$+t$
  341.     IF LEN(t$)<26 THEN
  342.          NAME pfad$+t$+".neu" AS pfad$+t$
  343.        ELSE
  344.          NAME pfad$+"xxyyzzy"+STR$(nummer) AS pfad$+t$
  345.          nummer=nummer+1
  346.        END IF
  347.     q$=LEFT$(t$+".info",30)
  348.     ON ERROR GOTO fehler
  349.     IF q$<>t$ THEN KILL pfad$+t$+".info"
  350.     ON ERROR GOTO 0
  351.   NEXT i
  352.   CLOSE 1
  353.   ON ERROR GOTO fehler
  354.   FOR i=0 TO nummer
  355.     KILL pfad$+"xxyyzzy"+STR$(i)+".info"
  356.   NEXT i
  357.   ON ERROR GOTO 0
  358.   GOTO 5  
  359.   
  360. cod:
  361. DATA 0000,0000,0000,0011,0000,03E9,0000,0011
  362. DATA 48E7,F0C0,206F,001C,226F,0020,222F,0024
  363. DATA 5341,E249,6500,0006,343C,0001,3019,E988
  364. DATA 3619,0243,000F,D003,10C0,51C9,FFF0,0802
  365. DATA 0000,6600,0008,3011,E948,1080,4CDF,030F
  366. DATA 4E75,4E71,0000,03F2
  367. REM decode
  368. DATA 0000,0000,0000,0025,0000,03E9,0000,0025
  369. DATA 48E7,F8F0,206F,0028,226F,002C,246F,0030
  370. DATA 222F,0034,266F,0038,1010,0200,00F0,6600
  371. DATA 0070,78FF,7400,5341,E249,6500,0006,343C
  372. DATA 0001,7600,1018,E898,0240,000F,34C0,0C43
  373. DATA 0000,6600,000C,0C00,0000,6600,0004,5284
  374. DATA D640,E998,0240,000F,34C0,0C43,0000,6600
  375. DATA 000C,0C40,0000,6600,0004,5284,D640,51C9
  376. DATA FFC4,0802,0000,6600,000E,1010,E808,0240
  377. DATA 000F,3480,D640,3283,3684,4CDF,0F1F,4E75
  378. DATA 3480,60F6,0000,03F2
  379.  
  380. SUB decodiere(t$) STATIC
  381. SHARED dec(),dat(),zmax,geszahl,bestZust
  382. IF t$<>"" THEN
  383. geszahl=0:bestZust=0
  384. ass&=0
  385. Adr&=0
  386. gadr&=0
  387. dadr&=0
  388. bzadr&=0
  389. Adr&=SADD(t$)
  390. gadr&=VARPTR(geszahl)
  391. dadr&=VARPTR(dat(0))
  392. bzadr&=VARPTR(bestZust)
  393. ass&=VARPTR(dec(0))
  394. CALL ass&(Adr&,gadr&,dadr&,zmax,bzadr&)
  395. END IF
  396. END SUB
  397.  
  398. SUB codiere(t$) STATIC
  399. SHARED cod(),ndat(),nzmax,nsatzl
  400. t$=STRING$(nsatzl,0)
  401. ass&=0
  402. Adr&=0
  403. dadr&=0
  404. Adr&=SADD(t$)
  405. dadr&=VARPTR(ndat(0))
  406. ass&=VARPTR(cod(0))
  407. CALL ass&(Adr&,dadr&,nzmax)
  408. END SUB
  409.  
  410. 500 
  411.  CLS
  412.  LOCATE 2,30:PRINT "neue Diskette einrichten"
  413.  LOCATE 4,5:PRINT "Geben Sie bitte den vollständigen Pfad zur dos.library an:"
  414.  INPUT lib$
  415.  IF UCASE$(RIGHT$(lib$,11))="DOS.LIBRARY" THEN lib$=LEFT$(lib$,LEN(lib$)-11
  416.  IF (RIGHT$(lib$,1)<>"/" AND RIGHT$(lib$,1)<>":")AND LEN(lib$)>0 THEN lib$=lib$+"/"
  417.  ON ERROR GOTO libfehler
  418.  LIBRARY lib$+"dos.library"
  419.  ON ERROR GOTO 0
  420.  LOCATE 6,5:PRINT "Legen Sie jetzt bitte eine formatierte Diskette ein (+ Taste)."
  421.  taste
  422.  fHandle& = xOpen&(SADD("con:0/0/600/100/"+CHR$(0)),1005)
  423.  IF fHandle& = 0 THEN PRINT:PRINT  "Fehler im DOS":taste:LIBRARY CLOSE:GOTO 10
  424.  x=Execute&(SADD("makedir df0:comdat"+CHR$(0)), 0,fHandle&)
  425.  CALL xClose&(fHandle&)  
  426.  LIBRARY CLOSE      
  427. GOTO 10
  428.       
  429.